function [XD,YD]=p_plane(r)
% p_plane: Return vertices of an ugly-looking plane
%
% SYNTAX:
%   [XD,YD] = p_plane(r)
%   [XY] = p_plane(r)
%   Return vertices of an ugly-looking plane. Parameter r specifies size of the plane.
%   This is only one example routine to illustrate manually defining a shape for icons.

%   Author: Hongbin Ma
%   Last updated: 2009-6-2 with MATLAB 6.5
%   Problems or suggestions? Email me: mathmhb[at]163.com

XD=[0,4,3, 3, 9,13,13,19,14,10,18,5,0]*r;
YD=[0,4,10,18,9,13,20,13,13,10,4, 4,0]*r;
if nargout<2,
    XD=[XD;YD]';
end;
